DO BOX2 WITH 4,36,'CHOOSE :','DRUGS','DISPOSABLE ITEMS','GR+','R','W+','N',PL4,.T.,.T.
SET COLOR TO BG/B
@ 4,36 CLEA TO 8,78
IF LASTKEY()=27
   RETURN
ENDIF
IF PL4=1
   DO BOXT WITH 4,36,'DRUGS','GR+','R',.T.,.T.
   STORE 'DRUG' TO SHRT,APPS
   APPL='DRUGS'
   F1='DRUGS'
   F11='DRUGNM'
   F2='DRUG_ENT'
   PL11=1
ELSE
   DO BOXT WITH 4,36,'DISPOSABLE ITEMS','GR+','R',.T.,.T.
   SHRT='DISP'
   APPS='DISPOSABLE ITEM'
   APPL='DISPOSABLE ITEMS'
   F1='DISPOS'
   F11='DISPNM'
   F2='DISP_ENT'
   PL11=2
ENDIF
SELE 2
SET EXCLU OFF
USE &DR1&F2
SELE 1
SET EXCLU OFF
USE &DR1&F1 INDEX &DR1&F1


RETURN
